fork and kill process

--===============0526490626==
Content-Type: multipart/alternative; boundary="0-1748036663-1248768753=:77951"


--0-1748036663-1248768753=:77951
Content-Type: text/plain; charset=big5
Content-Transfer-Encoding: quoted-printable

i am new to writing perl in windows. I would like to achieve the same resul=
t from the following code:

$pid =3D fork();
defined $pid or die "fork($pid)\n";
if($pid == 0)
{
exec("dir");
}

sleep(10);
kill("TERM" =3D> $pid);

I would to spawn a process and kill it (including the child process) at lat=
er time.

Pls advise what code should be in windows environment. someone suggested wi=
n32::job but i failed to write a success code.=20
=0A Yahoo!­»´ä´£¨Ñºô=A4W=A6w¥þ§ð=B2=
¤¡A±Ð=A7A=A6p¦ó¨¾=BDd¶Â«È! ½Ð=ABe©¹ http://=
hk.promo.yahoo.com/security/ =A4F¸Ñ§ó=A6h!
--0-1748036663-1248768753=:77951
Content-Type: text/html; charset=big5
Content-Transfer-Encoding: quoted-printable

Re: fork and kill process

Aclhk Aclhk wrote:
> i am new to writing perl in windows. I would like to achieve the same
> result from the following code:
>
> $pid = fork();
> defined $pid or die "fork($pid)\n";
> if($pid == 0)
> {
> exec("dir");
> }
>
> sleep(10);
> kill("TERM" => $pid);
>
> I would to spawn a process and kill it (including the child process) at
> later time.
>
> Pls advise what code should be in windows environment. someone suggested
> win32::job but i failed to write a success code.

Check out Win32::Process and see if it will do what you need.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: fork and kill process

--===============2028940081==
Content-Type: multipart/alternative; boundary="0-2121570317-1248772600=:49310"


--0-2121570317-1248772600=:49310
Content-Type: text/plain; charset=big5
Content-Transfer-Encoding: quoted-printable

if we use Win32::Process, we could not kill all associated child processes.

--- 2009=A6~7¤ë28¤é P´Á=A4G=A1ABill Luebkert nner.com> =BCg=B9D=A1R

=B1H¥ó=A4H: Bill Luebkert
=A5D=C3D: Re: fork and kill process
¦¬¥ó=A4H: "Aclhk Aclhk"
°Æ¥»(CC): activeperl@listserv.ActiveState.com
¤é´Á: 2009=A6~7¤ë28¤é,P´Á=A4G,=A4W¤È9:14

Aclhk Aclhk wrote:
> i am new to writing perl in windows. I would like to achieve the same=20
> result from the following code:
>=20
> $pid =3D fork();
> defined $pid or die "fork($pid)\n";
> if($pid == 0)
> {
> exec("dir");
> }
>=20
> sleep(10);
> kill("TERM" =3D> $pid);
>=20
> I would to spawn a process and kill it (including the child process) at=
=20
> later time.
>=20
> Pls advise what code should be in windows environment. someone suggested=
=20
> win32::job but i failed to write a success code.

Check out Win32::Process and see if it will do what you need.
=0A Yahoo!­»´ä´£¨Ñºô=A4W=A6w¥þ§ð=B2=
¤¡A±Ð=A7A=A6p¦ó¨¾=BDd¶Â«È! ½Ð=ABe©¹ http://=
hk.promo.yahoo.com/security/ =A4F¸Ñ§ó=A6h!
--0-2121570317-1248772600=:49310
Content-Type: text/html; charset=big5
Content-Transfer-Encoding: quoted-printable

Re: fork and kill process

--===============0746222600==
Content-Type: multipart/alternative; boundary="0-682413912-1248772695=:3704"


--0-682413912-1248772695=:3704
Content-Type: text/plain; charset=big5
Content-Transfer-Encoding: quoted-printable

fork is ok but forked process could not be killed.=20

--- 2009=A6~7¤ë28¤é P´Á=A4G=A1AXiao Yafeng om> =BCg=B9D=A1R

=B1H¥ó=A4H: Xiao Yafeng
=A5D=C3D: Re: fork and kill process
¦¬¥ó=A4H: "Aclhk Aclhk"
¤é´Á: 2009=A6~7¤ë28¤é,P´Á=A4G,=A4W¤È8:39

Using fork function on window is no problem. Below code spawns 10 processes=
and print in turn:=20
use strict;
use warnings;


my $max_process =3D 10;

my $processes =3D 0;
for my $count (1..100){
wait if $processes >=3D $max_process;
do{print $count."\n";exit} unless my $pid =3D fork;
$processes ++;
}

I roughly remember $pid of child process may not be zero on window. below o=
ne line could prove whether my guess is right or not:=20

perl -e 'if($pid =3D fork){print "parent pid is".$pid."\n";}else{print "chi=
ld pid is".$pid,"\n";}'




2009/7/28 Aclhk Aclhk
i am new to writing perl in windows. I would like to achieve the same=
result from the following code:

$pid =3D fork();
defined $pid or die "fork($pid)\n";
if($pid == 0)
{
exec("dir");
=0A}

sleep(10);
kill("TERM" =3D> $pid);

I would to spawn a process and kill it (including the child process) at lat=
er time.

Pls advise what code should be in windows environment. someone suggested wi=
n32::job but i failed to write a success code.=20
=0A
=0A Yahoo!­»´ä´£¨Ñºô=A4W=A6w=A5=
þ§ð²¤¡A±Ð=A7A=A6p¦ó¨¾=BDd¶Â=AB=C 8!=A4F¸Ñ=A7=
ó¦h
_______________________________________________
=0AActivePerl mailing list
=0AActivePerl@listserv.ActiveState.com
=0ATo unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Yahoo!­»´ä´£¨Ñºô=A4W=A6w¥þ§ð=
²¤=A1A±Ð=A7A=A6p¦ó¨¾=BDd¶Â«È! ½Ð=ABe©¹ http=
://hk.promo.yahoo.com/security/ =A4F¸Ñ§ó=A6h!
--0-682413912-1248772695=:3704
Content-Type: text/html; charset=big5
Content-Transfer-Encoding: quoted-printable

Re: fork and kill process

Aclhk Aclhk wrote:
> if we use Win32::Process, we could not kill all associated child processes.

Doesn't Win32::Process::KillProcess work ?

There is no such thing as a fork in Windoze, so you
basically have to create a process (possibly detached)
and you should be able to kill it be getting the pid.

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: fork and kill process

This is a multi-part message in MIME format.

--===============1809535640==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0181_01CA0F2D.12FD1000"
Content-language: en-us

This is a multi-part message in MIME format.

------=_NextPart_000_0181_01CA0F2D.12FD1000
Content-Type: text/plain;
charset="gb2312"
Content-Transfer-Encoding: quoted-printable

Win32::Job is indeed the module to use if you want to be sure you catch =
all child processes too. It requires Windows 2000 or later.
You'll need to show us some sample code and explain how it didn't work =
for you if you expect additional help with it.

=20

As for Win32::Process, you should be able to use kill(-9, $pid) at least =
with reasonably newish ActivePerl versions to kill $pid and
all its children.

=20

Cheers,

-Jan

=20

From: activeperl-bounces@listserv.ActiveState.com =
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Aclhk =
Aclhk
Sent: Tuesday, July 28, 2009 2:17 AM
To: Bill Luebkert
Cc: activeperl@listserv.ActiveState.com
Subject: Re: fork and kill process

=20


if we use Win32::Process, we could not kill all associated child =
processes.

--- 2009Äê7ÔÂ28ÈÕ ÐÇÆÚ¶þ£¬Bill Luebkert =
Œ‘µÀ=A9s


¼Ä¼þÈË: Bill Luebkert
Ö÷=EE}: Re: fork and kill process
ÊÕ¼þÈË: "Aclhk Aclhk"
¸±±¾(CC): activeperl@listserv.ActiveState.com
ÈÕÆÚ: =
2009Äê7ÔÂ28ÈÕ,ÐÇÆÚ¶þ,ÉÏÎç9:1 4

Aclhk Aclhk wrote:
> i am new to writing perl in windows. I would like to achieve the same=20
> result from the following code:
>=20
> $pid =3D fork();
> defined $pid or die "fork($pid)\n";
> if($pid == 0)
> {
> exec("dir");
> }
>=20
> sleep(10);
> kill("TERM" =3D> $pid);
>=20
> I would to spawn a process and kill it (including the child process) =
at=20
> later time.
>=20
> Pls advise what code should be in windows environment. someone =
suggested=20
> win32::job but i failed to write a success code.

Check out Win32::Process and see if it will do what you need.

=20

_____ =20

Yahoo!Ïã¸ÛÌṩ=BEWÉÏ°²È«¹¥=C 2Ô£¬½=
ÌÄãÈçºÎ·À¹ ºÚ¿=CD! =
Á˽â¸ü¶à


------=_NextPart_000_0181_01CA0F2D.12FD1000
Content-Type: text/html;
charset="gb2312"
Content-Transfer-Encoding: quoted-printable

charset=3Dgb2312">
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

Re: fork and kill process

--===============0432130682==
Content-Type: multipart/alternative; boundary=00163646d4626c9970046fc370e8

--00163646d4626c9970046fc370e8
Content-Type: text/plain; charset=Big5
Content-Transfer-Encoding: quoted-printable

How do you know spawned process can not be killed? posting the code could
let us help you better.

2009/7/28 Aclhk Aclhk

> if we use Win32::Process, we could not kill all associated child processe=
s.
>
> --- *2009=A6~7¤ë28¤é P´Á=A4G=A1ABill Luebkert drunner.com>* =BCg=B9D=A1R
>
>
> =B1H¥ó=A4H: Bill Luebkert
> =A5D=C3D: Re: fork and kill process
> ¦¬¥ó=A4H: "Aclhk Aclhk"
> °Æ¥»(CC): activeperl@listserv.ActiveState.com
> ¤é´Á: 2009=A6~7¤ë28¤é,P´Á=A4G,=A4W¤È9:14
>
> Aclhk Aclhk wrote:
> > i am new to writing perl in windows. I would like to achieve the same
> > result from the following code:
> >
> > $pid =3D fork();
> > defined $pid or die "fork($pid)\n";
> > if($pid == 0)
> > {
> > exec("dir");
> > }
> >
> > sleep(10);
> > kill("TERM" =3D> $pid);
> >
> > I would to spawn a process and kill it (including the child process) at
> > later time.
> >
> > Pls advise what code should be in windows environment. someone suggeste=
d
> > win32::job but i failed to write a success code.
>
> Check out Win32::Process and see if it will do what you need.
>
>
> ------------------------------
> Yahoo!­»´ä´£¨Ñºô=A4W=A6w¥þ§ð=B2= A4=A1A±Ð=
=A7A=A6p¦ó¨¾=BDd¶Â«È!*=A4F¸Ñ§ó=A6h* o.yahoo.com/security/>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

--00163646d4626c9970046fc370e8
Content-Type: text/html; charset=Big5
Content-Transfer-Encoding: quoted-printable

How do you know spawned process can not be killed? posting the code could l=
et us help you better.